Voorbeeld van de functie DoEvents

Dit voorbeeld maakt gebruik van de functie DoEvents om de uitvoering elke 1000 herhalingen van de lus door te geven aan het besturingssysteem. DoEvents geeft het aantal open formulieren in Visual Basic als resultaat, maar alleen wanneer de brontoepassing Visual Basic is.

' Create a variable to hold number of Visual Basic forms loaded
' and visible.
Dim I, OpenForms
For I = 1 To 150000    ' Start loop.
    If I Mod 1000 = 0 Then     ' If loop has repeated 1000 times.
        OpenForms = DoEvents    ' Yield to operating system.
    End If
Next I    ' Increment loop counter.